DEFINT A-Z

DIM SHARED DF(4411) AS INTEGER,ASM(9) AS INTEGER
DIM SHARED MP(80) AS STRING
COMMON SHARED GREET$

REM Load ASM code
DEF SEG=VARSEG(ASM(0))
FOR I=0 TO 14:READ N:POKE VARPTR(ASM(0))+I,N:NEXT I
DEF SEG

REM Load greeting text
GREET$="Welcome to enjoy the Nyan Cat. Press Esc to exit."
LOCATE ,,0:COLOR 0,0:CLS:PRINT GREET$;:COLOR 7,0
LOCATE 1,1

REM Enable 16 color bg for text mode
DEF SEG=VARSEG(ASM(0)):CALL ABSOLUTE(BYVAL 0,VARPTR(ASM(0)))
DEF SEG=&HB800

REM Show greeting while loading diff frame data
PLAY "MBMLL20T120"
PLAY "O3 EFG>C C<FEF G>CEF E<B>CC <GGEF GG>CC D<B>CD FEFD DDDD"
FIN=0
READ MGRP:FOR I=0 TO MGRP-1:READ MP(I)
  CALL GREETINGPROC(FIN)
NEXT I
  
P=0:N=0:WHILE N<>128:READ N
  IF N>128 THEN
    N=N AND 127:READ N2
    FOR I=1 TO N:DF(P)=N2:P=P+1:NEXT I
  ELSEIF N<128 THEN
    FOR I=1 TO N:READ DF(P):P=P+1:NEXT I
  END IF
  CALL GREETINGPROC(FIN)
WEND

REM Wait greeting music ends, then start main procedure
WHILE FIN=0:FIN=1:CALL GREETINGPROC(FIN):WEND

PLAY "O3":PLAY "X"+VARPTR$(MP(0)):IPL=0

REM Load base frame
FOR I=0 TO 1999:POKE I*2,220:NEXT I
P=1:N=0:WHILE N<>128:READ N
  IF N>128 THEN
    N=N AND 127:READ N2
    FOR I=1 TO N:POKE P,N2:P=P+2:NEXT I
  ELSEIF N<128 THEN
    FOR I=1 TO N:READ N2:POKE P,N2:P=P+2:NEXT I
  END IF
WEND

I=0:IDF=0
K$="":T0#=TIMER
WHILE K$<>CHR$(27)
  K$=INKEY$
  IF PLAY(2)<2 THEN IPL=(IPL+1) MOD MGRP:PLAY "X"+VARPTR$(MP(IPL))
  CALL DRAWDIFF(DF(),IDF)
  IF I>=11 THEN I=0:IDF=0 ELSE I=I+1
  T#=TIMER:WHILE T#=T0#:T#=TIMER:WEND:T0#=T#
WEND
DEF SEG=VARSEG(ASM(0)):CALL ABSOLUTE(BYVAL 1,VARPTR(ASM(0))):DEF SEG
LOCATE ,,1:CLS:END

SUB DRAWDIFF(A() AS INTEGER,IDX AS INTEGER)
  STATIC I,Y,X,C,N
  DEF SEG=&HB800
  WHILE A(IDX)<>255
    N=A(IDX)
    IF N>=&HE0 THEN
      Y=N AND &H1F:IDX=IDX+1
    ELSE
      X=N:C=A(IDX+1):IDX=IDX+2
      FOR I=0 TO C-1
        POKE Y*160+X*2+1,A(IDX):X=X+1:IDX=IDX+1
      NEXT I
    END IF
  WEND
  IDX=IDX+1
  DEF SEG
END SUB

SUB GREETINGPROC(FIN AS INTEGER)
  STATIC T#,T0#,TS#,INIT AS INTEGER,ISTR AS INTEGER
  T#=TIMER:IF INIT=0 THEN INIT=1:T0#=TIMER:TS#=TIMER:ISTR=0
  IF ISTR<LEN(GREET$) THEN
    FIN=0:IF T#-T0#>=0.01 THEN POKE ISTR*2+1,&HF0:ISTR=ISTR+1:T0#=T#
  END IF
  IF FIN=0 AND PLAY(1)<2 THEN PLAY "D" ELSE IF FIN=1 AND PLAY(1)>0 THEN FIN=0
END SUB

DATA &H55,&H89,&He5,&Hb8,&H03,&H10,&H8a,&H5e,&H06,&Hcd,&H10,&H5d,&Hca,&H02,&H00
DATA  79 
DATA "GGAA","D#EE","DD#D","CCCC","DDD#","D#D#","DCDE","GAEG","DECD","CEEG"
DATA "GAEG","DECD#","ED#D","CDD#","D#CD","EGD#","EDCD","DCCD","DGGA","AD#E"
DATA "EDD#","DCCC","CDDD#","D#D#","DCDE","GAEG","DECD","CEEG","GAEG","DECD#"
DATA "ED#D","CDD#","D#CD","EGD#","EDCD","DCCC","CCC<","GA>C","C<GA",">CDE"
DATA "CFEF","GCCC","C<GA",">C<G",">FED","C<FE","FG>C","C<GA",">CC<","GA>C"
DATA "CDEC","<GAG",">CCC","<B>C","<GA>","CFEF","GCC<","BB>C","C<GA",">CC<"
DATA "GA>C","DECF","EFGC","CCC<","GA>C","<G>F","EDC<","FEFG",">CC<","GA>C"
DATA "C<GA",">CCD","EC<G","AG>C","CC<B",">C<G","A>CF","EFGC","CDD"
DATA 30,224,66,1,241,72,1,241,75,2,17,17,78,1,17,225,67,1,241,69,1,31
DATA 71,1,241,78,1,17,229,0,3,131,17,127,230,1,1,17,234,41,2,221,208,44
DATA 2,7,208,51,2,17,16,54,2,7,16,235,24,5,238,224,224,238,238,41,2,221
DATA 0,45,2,119,7,50,2,0,7,54,2,119,0,236,24,6,0,119,119,0,224,224
DATA 40,3,221,208,7,54,3,119,7,16,237,25,5,10,112,112,119,119,40,2,221,0
DATA 44,3,119,240,0,49,5,119,112,119,240,0,55,2,119,0,238,28,1,3,40,2
DATA 221,0,45,2,119,112,48,2,119,112,51,2,119,112,55,2,119,0,239,12,1,57
DATA 29,1,57,41,3,222,14,121,112,45,1,119,52,4,7,119,112,1,240,9,1,153
DATA 15,1,153,28,2,153,0,31,1,119,43,2,1,0,46,4,7,0,1,0,51,3
DATA 7,0,1,241,6,1,241,28,1,17,34,1,17,37,1,1,44,1,17,47,1,1
DATA 49,1,17,51,2,1,1,242,12,1,17,247,75,1,241,79,1,17,255,224,57,1
DATA 241,63,1,241,66,1,17,72,1,17,225,60,1,31,67,1,17,69,1,17,71,1
DATA 17,228,79,1,31,229,79,1,241,230,76,2,241,241,79,1,241,231,32,146,17,6
DATA 79,1,255,232,0,7,135,68,2,8,7,135,20,2,16,7,135,68,2,24,27,135
DATA 20,1,16,145,14,5,16,17,233,0,7,135,70,2,8,7,135,68,2,16,7,135
DATA 70,2,24,6,134,68,35,32,3,238,237,221,39,1,220,42,1,220,47,2,237,238
DATA 234,34,1,205,42,5,221,208,208,221,220,52,4,17,16,16,17,235,0,7,135,238
DATA 2,8,7,135,110,2,16,7,135,238,2,24,6,134,110,17,38,1,220,45,5,7
DATA 208,221,221,238,51,2,16,7,236,0,7,135,234,2,8,7,135,238,2,16,7,135
DATA 234,2,24,6,134,238,12,35,1,220,39,1,221,41,2,221,0,47,4,132,7,8
DATA 55,2,0,17,237,25,5,170,131,160,21,0,33,1,220,39,1,205,45,2,127,112
DATA 50,1,119,52,2,127,112,238,0,7,135,51,2,8,7,135,163,2,16,7,135,51
DATA 32,24,6,0,7,119,119,112,112,32,1,221,34,1,221,37,1,220,45,2,7,7
DATA 49,2,119,7,52,2,7,7,239,0,7,135,57,2,8,7,135,51,2,16,7,135
DATA 57,3,24,6,51,132,3,8,51,31,1,238,33,11,222,205,134,221,26,13,112,119
DATA 46,7,0,112,112,0,112,112,0,54,3,119,112,1,240,1,1,159,29,26,153,0
DATA 7,139,224,1,0,138,112,7,1,241,0,7,241,31,241,132,17,2,8,7,135,145
DATA 2,16,7,135,17,2,24,10,134,145,127,0,112,112,1,36,3,112,112,0,46,3
DATA 112,112,0,51,3,112,112,0,245,69,1,31,247,66,1,241,72,1,241,75,1,17
DATA 248,69,1,31,255,224,53,1,241,57,1,17,63,1,17,225,60,1,17,228,70,1
DATA 31,79,1,17,229,68,1,241,72,1,241,79,1,17,230,67,1,241,73,1,241,76
DATA 2,17,17,79,1,17,231,68,1,241,70,1,31,72,1,241,79,1,17,237,28,2
DATA 7,7,238,24,1,160,27,1,112,239,24,3,3,112,112,28,1,51,240,1,1,153
DATA 29,2,144,7,241,0,1,3,131,17,121,29,2,0,112,32,4,1,17,1,112,37
DATA 2,0,17,44,2,1,112,47,4,0,17,1,112,52,2,0,17,245,59,1,31,69
DATA 1,17,246,57,1,241,61,1,241,247,56,1,241,62,1,241,66,1,17,72,1,17
DATA 248,57,1,241,59,1,31,61,1,241,69,1,17,255,224,47,3,241,31,241,53,1
DATA 17,228,61,1,31,70,1,17,229,68,1,17,72,1,17,230,58,1,241,64,1,241
DATA 67,1,17,73,1,17,231,61,1,31,68,1,17,70,1,17,72,1,17,232,0,7
DATA 135,20,2,8,7,135,68,2,16,7,135,20,2,24,8,135,68,4,64,233,0,7
DATA 135,68,2,8,7,135,70,2,16,7,135,68,2,24,6,134,70,16,234,42,1,208
DATA 44,1,221,52,1,16,54,1,17,235,0,7,135,110,2,8,7,135,238,2,16,7
DATA 135,110,2,24,6,134,238,20,41,2,0,119,44,3,7,208,221,51,2,7,119,54
DATA 2,0,17,236,0,7,135,238,2,8,7,135,234,2,16,14,135,238,1,224,131,7
DATA 22,0,224,224,41,2,0,119,46,1,7,50,1,119,54,2,0,17,237,23,6,10
DATA 10,132,112,21,40,2,0,119,44,3,127,112,119,51,3,127,112,119,55,2,0,17
DATA 238,0,7,135,163,2,8,7,135,51,2,16,7,135,163,2,24,6,132,51,27,3
DATA 3,40,2,0,119,44,1,7,46,1,119,49,3,7,119,7,53,1,119,55,2,0
DATA 17,239,0,7,135,51,2,8,7,135,57,2,16,7,135,51,2,24,6,133,57,43
DATA 48,40,3,13,112,119,45,2,0,112,48,2,0,112,51,2,0,119,54,3,112,1
DATA 17,240,27,3,144,7,7,31,1,0,42,2,0,112,53,2,1,17,241,0,7,135
DATA 145,2,8,7,135,17,2,16,7,135,145,2,24,8,131,17,84,0,112,112,1,17
DATA 33,5,112,112,0,17,17,42,11,1,112,112,0,17,1,112,112,0,17,17,245,48
DATA 1,31,59,1,17,246,48,1,241,57,1,17,61,1,17,247,45,2,241,241,48,1
DATA 241,50,2,241,241,56,1,17,62,1,17,248,48,1,255,57,1,17,59,1,17,61
DATA 1,17,255,224,39,5,241,241,31,241,241,47,3,131,17,44,225,41,1,241,228,61
DATA 1,17,230,54,1,241,58,1,17,64,1,17,231,61,1,17,234,41,4,208,7,7
DATA 208,51,4,16,7,7,16,235,25,2,224,224,44,8,119,7,131,208,16,224,7,119
DATA 236,23,4,238,0,119,119,40,2,208,7,46,4,132,119,45,54,2,7,16,237,23
DATA 3,170,170,10,28,2,119,119,44,2,240,0,49,1,112,51,2,240,0,238,44,2
DATA 119,112,48,2,112,119,51,2,112,119,239,40,3,221,13,112,45,136,7,15,53,3
DATA 112,1,17,79,1,31,240,29,1,119,42,12,224,134,0,84,7,0,1,1,17,79
DATA 1,241,241,32,1,0,35,1,1,42,1,0,45,1,1,76,2,241,241,79,1,241
DATA 242,79,1,255,245,48,1,17,246,39,1,255,48,1,17,247,37,5,241,241,31,241
DATA 241,45,2,17,17,48,1,17,50,2,17,17,248,39,1,241,48,1,17,255,224,29
DATA 2,241,241,32,1,241,34,2,241,241,39,5,133,17,23,225,32,1,255,41,1,17
DATA 229,49,1,31,230,48,3,241,31,241,54,1,17,231,32,17,145,16,3,232,0,7
DATA 135,68,2,8,7,135,20,2,16,7,135,68,2,24,27,134,20,4,16,14,238,238
DATA 141,237,7,238,238,14,16,233,0,7,135,70,2,8,7,135,68,2,16,7,135,70
DATA 2,24,6,134,68,25,32,3,237,221,220,39,1,205,42,1,205,47,2,221,237,234
DATA 34,1,221,46,1,205,235,0,7,135,238,2,8,7,135,110,2,16,7,135,238,14
DATA 24,6,0,7,7,0,96,110,38,1,205,236,0,7,135,234,2,8,7,135,238,2
DATA 16,7,135,234,31,24,6,14,0,112,119,7,0,35,1,205,39,1,220,237,25,5
DATA 170,10,0,112,112,33,1,205,39,1,221,238,0,7,135,51,2,8,7,135,163,2
DATA 16,7,135,51,2,24,5,133,163,12,32,1,222,34,1,220,37,1,205,239,0,7
DATA 135,57,2,8,7,135,51,2,16,7,135,57,2,24,5,133,51,6,31,1,224,33
DATA 9,238,135,222,22,14,70,1,31,79,1,17,240,27,2,153,0,30,13,119,112,0
DATA 1,0,7,7,0,133,1,23,44,2,7,7,47,1,1,50,2,7,0,68,1,241
DATA 72,1,241,79,1,17,241,0,7,135,17,2,8,7,135,145,2,16,7,135,17,2
DATA 24,6,132,145,64,1,1,31,4,1,17,17,1,36,1,1,42,3,17,17,1,46
DATA 5,1,17,17,1,1,67,1,241,73,1,241,76,2,17,17,79,1,17,242,68,1
DATA 241,70,1,31,72,1,241,79,1,17,246,32,1,31,39,1,17,247,31,3,241,31
DATA 241,37,5,133,17,53,248,39,1,17,255,224,19,1,241,25,1,241,29,2,17,17
DATA 32,1,17,34,2,17,17,225,20,1,241,22,1,31,24,1,241,32,1,17,229,43
DATA 1,255,49,1,17,230,41,5,241,241,31,241,241,48,3,131,17,127,231,43,1,240
DATA 234,41,2,221,208,44,2,7,208,51,2,17,16,54,2,7,16,235,24,5,110,96
DATA 96,110,110,41,2,221,0,45,2,119,7,50,2,0,7,54,2,119,0,236,24,6
DATA 0,119,119,0,224,224,40,3,221,208,7,54,3,119,7,16,237,25,5,10,112,112
DATA 119,119,40,2,221,0,44,3,119,240,0,49,5,119,112,119,240,0,55,2,119,0
DATA 238,28,1,3,40,2,221,0,45,2,119,112,48,2,119,112,51,2,119,112,55,2
DATA 119,0,239,29,1,51,41,3,222,14,112,45,1,100,119,52,4,7,119,112,1,61
DATA 1,31,70,1,17,240,28,2,153,0,31,1,119,43,2,1,0,46,4,7,0,1
DATA 0,51,3,7,0,1,68,1,17,72,1,17,241,28,1,145,34,1,17,37,1,1
DATA 44,1,17,47,1,1,49,1,17,51,2,1,1,58,1,241,64,1,241,67,1,17
DATA 73,1,17,242,61,1,31,68,1,17,70,1,17,72,1,17,246,32,1,17,247,28
DATA 1,241,31,3,131,17,52,255,224,9,1,241,15,1,241,19,1,17,25,1,17,225
DATA 12,1,31,20,1,17,22,1,17,24,1,17,228,34,1,31,229,34,1,241,43,1
DATA 17,230,31,2,241,241,34,1,241,36,2,241,241,41,5,133,17,2,231,32,131,17
DATA 1,255,142,17,3,232,0,7,135,20,2,8,7,135,68,2,16,7,135,20,2,24
DATA 27,135,68,1,64,145,14,5,16,17,233,0,7,135,68,2,8,7,135,70,2,16
DATA 7,135,68,2,24,6,134,70,35,32,3,238,237,221,39,1,220,42,1,220,47,2
DATA 237,238,234,34,1,205,42,5,221,208,208,221,220,52,4,17,16,16,17,235,0,7
DATA 135,110,2,8,7,135,238,2,16,7,135,110,2,24,6,134,238,17,38,1,220,45
DATA 5,7,208,221,221,238,51,2,16,7,236,0,7,135,238,2,8,7,135,234,2,16
DATA 7,135,238,2,24,6,134,234,12,35,1,220,39,1,221,41,2,221,0,47,4,132
DATA 7,8,55,2,0,17,237,25,5,170,131,160,21,0,33,1,220,39,1,205,45,2
DATA 127,112,50,1,119,52,2,127,112,238,0,7,135,163,2,8,7,135,51,2,16,7
DATA 135,163,32,24,6,0,7,119,119,112,112,32,1,221,34,1,221,37,1,220,45,2
DATA 7,7,49,2,119,7,52,2,7,7,239,0,7,135,51,2,8,7,135,57,2,16
DATA 7,135,51,3,24,6,57,132,9,8,57,31,1,238,33,11,222,205,134,221,26,13
DATA 112,119,46,7,0,112,112,0,112,112,0,54,3,119,112,1,61,1,17,240,29,26
DATA 153,0,7,139,224,1,0,138,112,4,1,241,0,7,135,145,2,8,7,135,17,2
DATA 16,7,135,145,2,24,10,134,17,127,0,112,112,1,36,3,112,112,0,46,4,112
DATA 112,0,241,51,3,112,112,0,58,1,17,64,1,17,242,61,1,17,245,21,1,31
DATA 247,18,1,241,24,1,241,28,1,17,248,21,1,31,255,224,5,1,241,9,1,17
DATA 15,1,17,225,12,1,17,228,24,1,31,34,1,17,229,22,1,241,26,1,241,34
DATA 1,17,230,21,1,241,27,1,241,31,2,17,17,34,1,17,36,2,17,17,231,22
DATA 1,241,24,1,31,26,1,241,34,1,17,237,28,2,7,7,238,24,1,48,27,1
DATA 112,239,24,3,9,127,112,112,28,1,57,240,29,2,144,7,241,29,2,0,112,32
DATA 4,1,17,1,112,37,2,0,17,41,5,241,241,31,1,112,47,4,0,17,1,112
DATA 52,2,0,17,242,43,1,241,245,12,1,31,21,1,17,246,10,1,241,14,1,241
DATA 247,9,1,241,15,1,241,18,1,17,24,1,17,248,10,1,241,12,1,31,14,1
DATA 241,21,1,17,255,224,0,2,31,241,5,1,17,228,13,1,31,24,1,17,229,22
DATA 1,17,26,1,17,230,10,1,241,16,1,241,21,1,17,27,1,17,231,13,1,31
DATA 22,11,1,17,24,1,17,26,1,17,232,0,7,135,68,2,8,7,135,20,2,16
DATA 7,135,68,2,24,8,135,20,4,16,233,0,7,135,70,2,8,7,135,68,2,16
DATA 7,135,70,2,24,6,134,68,16,234,42,1,208,44,1,221,52,1,16,54,1,17
DATA 235,0,7,135,238,2,8,7,135,110,2,16,7,135,238,2,24,6,134,110,20,41
DATA 2,0,119,44,3,7,208,221,51,2,7,119,54,2,0,17,236,0,7,135,234,2
DATA 8,7,135,238,2,16,14,135,234,1,224,131,7,22,0,224,224,41,2,0,119,46
DATA 1,7,50,1,119,54,2,0,17,237,23,6,10,10,132,112,21,40,2,0,119,44
DATA 3,127,112,119,51,3,127,112,119,55,2,0,17,238,0,7,135,51,2,8,7,135
DATA 163,2,16,7,135,51,2,24,6,132,163,27,3,3,40,2,0,119,44,1,7,46
DATA 1,119,49,3,7,119,7,53,1,119,55,2,0,17,239,0,7,135,57,2,8,7
DATA 135,51,2,16,7,135,57,2,24,6,133,51,43,48,40,3,13,112,119,45,2,0
DATA 112,48,2,0,112,51,2,0,119,54,3,112,1,17,240,27,3,144,7,7,31,1
DATA 0,42,2,0,112,53,2,1,17,241,0,7,135,17,2,8,7,135,145,2,16,7
DATA 135,17,2,24,8,131,145,126,0,112,112,1,241,33,5,112,112,0,241,241,41,12
DATA 17,1,112,112,0,17,1,112,112,0,17,17,242,34,1,255,43,1,17,245,2,1
DATA 31,12,1,17,246,2,1,241,10,1,17,14,1,17,247,0,1,241,2,1,241,4
DATA 2,241,241,9,1,17,15,1,17,248,2,1,255,10,1,17,12,1,17,14,1,17
DATA 255,224,0,2,17,17,228,13,1,17,230,6,1,241,10,1,17,16,1,17,231,13
DATA 1,17,234,41,4,208,7,7,208,51,4,16,7,7,16,235,25,2,96,96,44,8
DATA 119,7,131,208,16,224,7,119,236,23,4,238,0,119,119,40,2,208,7,46,4,132
DATA 119,48,54,2,7,16,237,23,3,170,170,10,28,2,119,119,44,2,240,0,49,1
DATA 112,51,2,240,0,238,44,2,119,112,48,2,112,119,51,2,112,119,239,23,1,63
DATA 40,3,221,13,112,45,136,7,18,53,3,112,1,17,240,21,1,249,25,1,249,29
DATA 1,119,42,12,224,134,0,91,7,0,1,1,17,241,20,1,241,26,1,241,31,2
DATA 17,0,35,3,1,17,17,42,1,0,45,1,1,242,21,1,241,23,1,31,25,1
DATA 241,34,1,17,245,2,1,17,246,1,2,241,17,247,0,1,17,4,2,17,17,248
DATA 1,2,241,17,255,224,75,2,241,241,78,1,241,225,78,1,255,229,0,3,31,241
DATA 31,230,1,1,241,6,1,17,231,32,17,145,16,3,232,0,7,135,20,2,8,7
DATA 135,68,2,16,7,135,20,2,24,27,134,68,4,64,14,238,238,141,237,7,238,238
DATA 14,16,233,0,7,135,68,2,8,7,135,70,2,16,7,135,68,2,24,6,134,70
DATA 25,32,3,237,221,220,39,1,205,42,1,205,47,2,221,237,234,34,1,221,46,1
DATA 205,235,0,7,135,110,2,8,7,135,238,2,16,7,135,110,14,24,6,0,7,7
DATA 0,224,238,38,1,205,236,0,7,135,238,2,8,7,135,234,2,16,7,135,238,31
DATA 24,6,10,0,112,119,7,0,35,1,205,39,1,220,237,25,5,170,10,0,112,112
DATA 33,1,205,39,1,221,238,0,7,135,163,2,8,7,135,51,2,16,7,135,163,2
DATA 24,5,133,51,12,32,1,222,34,1,220,37,1,205,239,0,7,135,51,2,8,7
DATA 132,57,5,249,57,57,16,13,136,51,133,57,6,31,1,224,33,9,238,135,222,28
DATA 14,240,9,1,159,15,1,159,21,1,153,25,1,153,27,2,153,0,30,13,119,112
DATA 0,1,0,7,7,0,133,1,14,44,2,7,7,47,1,1,50,2,7,0,241,0
DATA 7,135,145,2,8,7,135,17,2,16,7,135,145,2,24,6,132,17,51,1,1,31
DATA 4,1,17,17,1,36,1,1,42,3,17,17,1,46,5,1,17,17,1,1,242,12
DATA 1,241,21,1,17,23,1,17,25,1,17,246,1,1,17,247,2,1,17,79,1,241
DATA 248,1,1,17,1,255,128
DATA 203,17,4,241,241,17,241,207,17,1,255,255,17,242,17,3,31,241,31,206,17,1
DATA 241,238,17,145,16,159,17,136,20,136,68,136,20,134,68,4,64,14,238,238,141,237
DATA 4,238,238,14,16,157,17,136,68,136,70,136,68,134,70,5,0,238,237,221,220,132
DATA 221,4,205,221,221,205,133,221,3,237,238,0,157,17,158,102,2,0,238,137,221,14
DATA 208,7,7,208,221,205,221,221,238,0,16,7,7,16,153,17,136,110,136,238,136,110
DATA 8,0,7,7,0,224,238,0,238,134,221,4,205,221,221,0,131,119,1,7,131,208
DATA 2,224,7,131,119,1,0,153,17,136,238,136,234,136,238,8,10,0,112,119,7,0
DATA 0,238,131,221,1,205,131,221,3,220,208,7,140,119,2,7,16,152,17,154,170,8
DATA 10,0,112,112,0,238,221,205,134,221,1,0,131,119,2,240,0,131,119,7,112,119
DATA 240,0,119,119,0,152,17,136,163,136,51,136,163,133,51,12,3,0,238,222,221,220
DATA 221,221,205,221,221,0,132,119,7,112,119,119,112,119,119,112,131,119,1,0,152,17
DATA 136,51,132,57,1,249,131,57,136,51,133,57,5,48,0,224,238,238,135,222,4,14
DATA 112,119,119,135,7,3,119,112,1,153,17,137,153,1,159,133,153,1,159,140,153,10
DATA 0,119,119,112,0,1,0,7,7,0,133,1,10,0,7,7,0,1,0,7,7,0
DATA 1,155,17,136,145,136,17,136,145,132,17,132,1,2,17,17,131,1,135,17,131,1
DATA 4,17,17,1,1,169,17,1,241,255,17,255,17,255,17,213,17,1,241,208,17,128
